<script>---- Script of cd button "New List" in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri---- This script sets up for a new list. It allows user to save-- previous list if they desire.--on mouseUpglobal uL,fName,status---- Is there anything to save?--if cd fld "TheList" is not empty thenanswer "Save current list?" with "No" or "Yes"if it is "Yes" then do saveFileend if---- This button will clear the bkgnd field "TheList"--put empty into cd fld "TheList"put empty into fNameput "N" into statustype tabend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>368</left>
<top>73</top>
<right>482</right>
<bottom>100</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Open List...</name>
<script>---- Script of cd button "Open list..." in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri---- This script reads in a list from a file. It first allows-- user to save current list.--on mouseUp---- This button will read the contents of a text file into-- the card field "TheList"--if cd fld "TheList" is not empty thenanswer "Save current list?" with "No" or "Yes"if it is "Yes" then do saveFileput empty into cd field "TheList"end ifreadFileend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>368</left>
<top>104</top>
<right>482</right>
<bottom>131</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Save List...</name>
<script>---- Script of cd button "Save List..." in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri---- This script saves an existing list, creating a new file-- if necessaryon mouseUpglobal uL,fName,status--saveFileend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>368</left>
<top>135</top>
<right>482</right>
<bottom>162</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print List...</name>
<script>---- Script of cd button "Print List..." in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri---- This script prints the field "TheList"--on mouseUp--print cd fld "TheList"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>368</left>
<top>180</top>
<right>482</right>
<bottom>207</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sort</name>
<script>---- Script of cd button "Sort" in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri---- This script sorts the list into alphabetical order.--on mouseUp--Sort cd fld "TheList"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>368</left>
<top>212</top>
<right>482</right>
<bottom>239</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Randomize</name>
<script>---- Script of cd button "Randomize" in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri---- This script randomizes the list--on mouseUp--lock screenput number of lines in cd fld "TheList" into nLinesput cd fld "TheList" into tempListput empty into cd fld "TheList"--repeat until nLines is 0put the random of nLines into lNumberput line lNumber of tempList & return after cd fld "TheList"delete line lNumber of tempListsubtract 1 from nlinesend repeatunlock screenend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>292</top>
<right>482</right>
<bottom>336</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1006</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Finder</name>
<script>---- Script of cd button "Finder" in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri---- This script returns you to the Finder--on mouseUpBeepanswer "Returning to Finder..." with "Cancel" or "OK"if it is "OK" then doMenu "Quit HyperCard"end mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>369</left>
<top>292</top>
<right>419</right>
<bottom>336</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20098</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>---- Script of cd button "Home" in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri---- This script returns you to the Home stack--on mouseUpBeepanswer "Returning to Home Stack..." with "Cancel" or "OK"if it is "OK" then go to stack "Home"end mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>369</left>
<top>243</top>
<right>419</right>
<bottom>287</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2478</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>About</name>
<script>---- Script of button “About” in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri----on mouseUpgo to card "About"end mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>243</top>
<right>482</right>
<bottom>287</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>25002</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>---- Script of button “Help” in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri----on mouseUpgo to card "Help"end mouseUp</script>
</part>
<name></name>
<script></script>
</card>
card_5297.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>---- Script of card “Help” in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri----on mouseUpgo to first cardend mouseUp</script>
</card>
card_5716.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>---- Script of card "About" in stack "List Randomizer"---- Written by Jack W. Richens, Jr.-- Richens Consulting-- P.O. Box 1853-- Columbia, MO 65205-- (314) 445-8042---- Copyright 1991, Richens Consulting, Columbia, Missouri----on mouseUpgo to first cardend mouseUp</script>